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-NLIST SEQ,LOC,BIN 
- REM 


IDENTIFICATION 
PRODUCT CODE:  AC-E484A-MC 
PRODUCT NAME: CZTUNAO TMO2/TU45S DATA TAPE CREATE 


DATE: 25 MAY 1978 
MAINTAINER: COMPUTER SPECIAL SYSTEMS 
AUTHOR: R. B. BARNES/R. J. COLLINS 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO 
CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED 
AS A_ COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. 
DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN 
THIS MANUAL. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS 
FURNISHED TO THE PURCHASER UNDER A LICENSE FOR USE 
ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED 

(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) 
ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY 
OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR THE USE OR RELIIBILITY OF ITS 
aisita ON EQUIPMENT THAT IS NOT SUPPLIED BY 


COPYRIGHT (@) 1975, 1976, 1977, 1978 BY DIGITAL EQUIPMENT CORPORATION 
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(PAGE 1) 
ABSTRACT 


THIS IS NOT A TEST PROGRAM! IT IS A SUPPLEMENT 

TO BOTH THE TM11/TU10 AND TMO2/TU45S DATA 

RELIBILITY PROGRAMS. ITS PURPOSE IS TO ALLOW THE 
OPERATOR TO CREATE A PAPER TAPE OF WHATEVER DATA 
PATTERN IS DESIRED, TO BE USED BY THE DATA RELIBILITY 
PROGRAMS, WHEN DATA PATTERN ZERO (0) IS SELECTED. 


REQUIREMENTS 


A. ANY PDP-11 PROCESSOR 

B. TELETYPE OR LA30 KEYBOARD 

C. HIGH SPEED OR LOW SPEED PUNCH 
D. 1K OF CORE 


LOADING PROCEDURE 


USE STANDARD BINARY LOADING PROCEDURE 
STARTING PROCEDURE 


THE PROGRAM MAY BE STARTED AT EITHER 200 (8) 

OR 204 (8). WHEN STARTED AT 200 (8), OPERATING 
INSTRUCTIONS WILL BE PRINTED BEFORE STARTING 
INPUT. WHEN STARTED AT 204 (8), INPUT IS 


IMMEDIATELY STARTED. INPUT START IS NOTED BY AN ASTERISCK (+). 


SAMPLE START AT 200: (LOAD 200, PRESS START) 


EXTERNAL DATA TAPE CREATE PROGRAM 

MAXIMUM OF 377 OCTAL CHARACTERS. 

ENTER 3 DIGITS (0-7) FOR EACH CHARACTER. 

CR WILL ECHO CR-LF. 

CONTROL C ENDS INPUT AT LESS THAN 377. 

A SINGLE CHARACTER CORRECTION MAY BE DONE 

BY TYPING A SLASH AND RETYPING THE CHARACTER. 


* (THE ASTERISCK INDICATES START OF INPUT) 
SAMPLE START AT 204: (LOAD 204 PRESS START) 
* (START INPUT) 


SEQ 0003 
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OPERATION: 


WHEN THE ASTERISCK IS PRINTED AFTER THE START AT 

200 OR 204, START INPUTTING CHARACTERS. EACH GROUP 

OF THREE (3) DIGITS (0-7) EQUALS ONE (1) CRARACTER ON 
TAPE. ENTER AS MANY 3 DIGIT GROUPS PER THE NUMBER 

OF CHARACTERS DESIRED IN THE PATTERN. THE PROGRAM 

WILL ACCEPT UP TO 256 CHARACTERS (377 OCTAL). IF 

LESS THAN 256 ARE DESIRED, TERMINATE INPUT BY 

TYPING A CONTROL C. A CARRIAGE RETURN (CR) MAY 

BE TYPED ANY TIME AND WILL ECHO A CR-LF BUT 

WILL NOT BE PLACED IN THE DATA PATTERN NOR COUNTED 

AS AN INPUT CHARACTER. ANY INPUT OTHER THAN AN 

OCTAL DIGIT (0-7), A CARRIAGE RETURN (CR), OR A CONTROL C 
WILL BE CONSIDERED ILLEGAL AND BE FLAGGED BY A 

QUESTION MARK (?). THE ILLEGAL ENTRY IS NEITHER 

PLACED IN THE DATA PATTERN NOR COUNTED AS A 

CHARACTER. WHEN INPUT IS COMPLETED (CONTROL C OR 256 CHARACTERS), 
THE PROGRAM TYPES END OF INPUT AND REQUESTS SELECTION 

OF HIGH SPEED OR LOW SPEED PUNCH FOR OUTPUT. A RESPONSE 
OF L TO THIS REQUEST WILL CAUSE OUTPUT ON THE TTY PUNCH, 
A RESPONSE OF H TO THIS REQUEST WILL OUTPUT ON THE 

HIGH SPEED PUNCH. 

WHEN OUTPUT IS COMPLETE, THE PROGRAM WILL AGAIN 

REQUEST AN OUTPUT RESPONSE. IF EITHER H OR L IS 

TYPED, THE SAME DATA PATTERN IS AGAIN OUTPUT. THIS 

CAN BE REPEATED AS MANY TIMES AS DESIRED. | 

NO MORE OUTPUT IS NEEDED, BUT A DIFFERENT PATTERN 

IS DESIRED, TYPE A CR TO RETURN TO START OF 

INPUT WHICH WILL BE INDICATED BY AN ASTERISCK (*). 

THE FIRST CHARACTER PUNCHED ON THE TAPE IS THE NUMBER 

OF CHARACTERS ON THAT TAPE AND IS NOT USED AS 

PART OF THE PATTERN BY THE EXERCISERS. THE DATA 

ON THE TAPE WILL APPEAR AS BYTES IN CORE WHEN 

USED BY THE EXERCISERS. 


SEQ 0004 
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6. EXAMPLES 


THE FOLLOWING EXAMPLES SHOW THE TAPE LAYOUT RESULTING 
FROM ITS INPUT AND THE RESULTANT CORE MAP IN THE EXERCISER 
(READ THE EXERCISER DOCUMENT TO SEE HOW TO USE THESE PATTERN TAPES) 


EXAMPLE 1: LOAD AND START AT 204 (8) 
*#00011122253344497377/6(CONTROL C) 


END OF INPUT 

ASSURE PUNCH IS ON 

AND TYPE L FOR LOW SPEED 

OR H FOR HIGH SPEED 

OR CR FOR RESTART WITH NO PUNCH 


L (OUTPUT IS NOW MADE ON TTY PUNCH) 
OUTPUT TAPE BIT LAYOUT: 
00000.110 (NUMBER OF CHARACTERS IN PATTERN IS 6) 
01007 001 
10010. 010 (THE DOT . REPRESENTS THE SPROCKET HOLE) 
00100. 100 
11111.110 
EXERCISER CORE MAP: 

WRITE BUFFER: 0100100100000000 


1101101110010010 (6 CHARACTER = 3 WORDS) 
+4:  1111111011011011 
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2: LOAD AND START 204 (8) 


*377(CR) 

500(CR) 

8?G6?3(CR) 
334266(CONTROL C) 


END OF INPUT 

ASSURE PUNCH IS ON 

AND TYPE L FOR LOW SPEED 

OR H FOR HIGH SPEED 

OR CR FOR RESTART WITH NO PUNCH 


HCOUTPUT IS NOW MADE OF HIGH SPEED PUNCH) 


OUTPUT TAPE BIT LAYOUT: 


00000.101 (NUMBER OF CHARACTERS IS 5) 
17771.111 


01000. 000 


11011.011 (THE DOT REPRESENTS THE SPROCKET HOLE) 


00010.110 
10000.000 


EXERCISER CORE MAP: 


WRITE a 0100000011111111 
+e: 


0001011011011011 
+4: 0000000010000000 


(5 CHARACTER = 2 WORDS + 1 BYTE) 


SEQ 0006 
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EXCEPTION 


NOTE THAT THE FIRST DIGIT OF THE 3 DIGITS PER CHARACTER 

IS LEFT JUSTIFIED. BECAUSE THE TAPE IS ONLY EIGHT (8) BITS 
WIDE, THE MOST SIGNIFICANT BIT OF THE FIRST DIGIT INPUT 

FOR EACH CHARACTER IS LOST. SEE EXAMPLE ONE (1), THE FIFTH (5) 
CHARACTER INPUT IS 444, BUT THE TAPE OUTPUT SHOWS 00100100 
BECAUSE THE MOST SIGNIFICANT BIT IS LOST. EXAMPLE 2, THE 
SECOND (2) CHARACTER INPUT, ALSO SHOWS THIS. REMEMBER, THE 
FIRST DIGIT INPUT FOR EACH CHARACTER WILL ONLY SHOW THE TWO (2) 
LEAST SIGNIFICANT BITS OF THAT DIGIT. 

THE OTHER EXCEPTION TO KEEP IN MIND, IS THAT IF INPUT IS 
TERMINATED AT SOME NUMBER OF DIGITS NOT DIVISIABLE BY THREE (3), 
THE PARTIAL CHARACTER AT THE END OF THE FIELD WILL BE 

FILLED TO THE RIGHT WITH ZEROS (0). EXAMPLE 2, 

THE FIFTH (5) CHARACTER, HAS NOT BEEN COMPLETED BY 

INPUT BEFORE TERMINATION. SEE THE TAPE LAYOUT, CHARACTER 5 
WHICH SHOWS THAT THE TWO (2) LEAST SIGNIFICANT DIGIT 

POSITIONS ARE FILLED WITH ZEROES (0) TO COMPLETE THE 

CHARACTER FOR OUTPUT. 


EXERCISER USAGE 


THE EXERCISERS WILL READ THE TAPE CREATED BY DTC 
AND FILL THEIR ENTIRE WRITE BUFFER WITH REPITIONS OF 
THE DATA TAPE SO THAT ANY SIZE RECORD CAN BE WRITTEN. 


LISTING 


SEQ 0007 


DATA TAPE CREATE 


CZTUNA.P11 


000200 
000204 
001000 
001002 
001004 
001006 
0010 


10 
001012 
001014 


001016 
001020 


000000 


000007 


000000 
000200 


000200 
000167 


000204 
000167 


001000 


177560 


177556 
177776 


000000 
000000 


MACY11 30(1046) 
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000774 


001012 
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LIST SEQ,LOC,BIN 
~- TITLE DATA TAPE CREATE 
: CZTUNAO 
:R. BARNES/R. J. COLLINS 
725 MAY 1978 
-ENABLE ABS 
RO=%0 
R1=21 
R2=%2 
R3=%3 
R4=24 
R5=%5 
SP=%6 
PC=%7 
“REPT 200 
+2 
HALT 
=200 
JMP START sSTARTING ADDRESS=200(8) FOR HELP 
-=204 
JMP STi :STARTING ADDRESS FOR NO HELP 
-=1000 
sCONSTANTSeeeeeeeeee 
TKS: 177560 ;LOW SPEED PUNCH 
TKB: 177562 
TPS: 177564 
TPB: 177566 
PPS: 177554 sHIGH SPEED PUNCH 
PPB: 177556 
PSW: 177776 sPROGRAM STATUS WORD 
SBUFFERS*etteraere 
TIB: 0 ; INPUT BUFFER 
TOB: 0 sOUTPUT BUFFER 


SEQ 0008 
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304 001200 -=1200 
see sPROGRAM START AND HOUSEKEEPINGtttereaene 
307 001200 012777 000340 177606 START: MOV #340 ,aPSW ;SET TO PRIORITY LEVEL 7 
308 001206 012706 000500 MOV #500,SP ;SET STACK TO 500 
309 001212 012704 002176 MOV #ASG1,R4 
310 001216 004767 000532 JSR PC, TTOUT ; TYPE HELP MESSAGE 
311 001222 012777 000340 177564 STI: MOV #340,aPSW 
312 001230 012706 000500 MOV #500,SP 
313 001234 005067 177560 CLR 
314 001240 005067 177552 CLR TIB ;CLEAR BUFFERS 
315 001244 012700 000250 MOV #250,R0 ;SET SIZE IF DATA AREA 
316 001250 012702 002754 MOV #DAM4O,R2 ;SET START OF AREA TO CLEAR 
317 001254 005022 ST2: CLR (R2)+ sCLEAR DATA AREA 
318 001256 005300 DEC RO ;CLEAR RO FOR USE AS CHARACTER COUNTER 
319 001260 001375 BNE ST2 ;BR IF NOT DONE 
320 001262 005001 CLR R1 :CLEAR R1 FOR USE AS DIGIT POSITION POINTER 
321 001264 012702 003017 MOV #DAt+1,R2 ;SET START OF DATA AREA 
322 001270 004767 000642 ST3: JSR PC,CRLF ;TYPE CR,LF AND * 


DATA TAPE CREATE 
CZTUNA.P11 


001274 
001300 


001420 
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004767 


000167 


000552 
000215 


000212 


000203 


000234 
000257 


000042 
000260 


000277 
000430 
177664 
000267 


177746 


1775 * 
177502 


177462 


177442 


177426 
177420 


177400 


READ: 


RD1: 


RD2: 


RD2A: 
RD2B: 


RDS: 
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sDATA READ FROM TTYeteeereeee 


PC,TTIN 
#215,T1B 
RD 


:GG INPUT DATA 

:BR IF NOT CR 

:D0 LF 

;GET NEXT DATA 

:BR IF NOT CONTROL C 
:BR IF FIRST INPUT 
:GO TO PUNCH ROUTINE 
;SEE IF RUBOUT 

;1F NOT: BR 

;ELSE RUBOUT LAST ENTRY 
;BR IF NOT TOO LOW 


s TYPE? 


;BR IF NOT TOO HIGH 


SEQ 0010 
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001424 


001576 
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000240 


000167 


016703 


000167 


000001 


000300 


177624 
000007 


000002 
177606 
000070 


000001 
177572 


177310 
000370 
000001 


000026 


000014 


000377 
177472 


RUBOUT: 


RBO: 


RB1: 


RD4: 


RDS: 


RD6: 


RDEX: 
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;LAST ENTRY RUBOUT ROUTINE*ttteterene 


#1,R1 


RB1 
#300, (R2) 
R1 


READ 
#7,-(R2) 
RO 

#2,R1 
READ 
#70, (R2) 


#1,R1 
READ 


;SEE WHERE LAST ENTRY WAS 
;1F POSITION 0: BR 
:1F POSITION 1: BR 


sRESET POSITION POINTER 
;REENTER 


sRESET CHAR POINTER 
sRESET POSITION POINTER 
;REENTER 


sRESET POSITION POINTER 
;REENTER 


sPOSITION DIGITS TO FORM CHARACTER AND LOAD DATA AREAtteeanaaee 


sR3=STRIPPED DIGIT(0-7) 
:TEST POSITION POINTER 
:D0 POSITION 2 
:D0 POSITION 0 


sPOSITION DIGIT 1 


sLOAD DIGIT 1 

;BUMP POINTER 

;CHECK FOR END 

LOAD DIGIT 0 

sCLEAR POSITION POINTER 
;BUMP CHARACTER COUNTER 
sLOAD DIGIT 


sPOSITION DIGIT 2 


;LOAD DIGIT 2 AND BUMP CHARACTER ADDRESS 
sBUMP POINTER 


;BR IF FILLED DATA AREA 


SEQ 0011 


DATA TA 


PE CREA 
P 


CZTUNA.P11 


413 


LOLS 
od od ot od 
OOonour 


001724 


001730 


001750 


TE 


07-JUN-78 


000167 


112167 


000167 


112167 


000167 
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001210 


000314 
000310 
000215 
177334 


177722 


177110 
000120 


001072 
177652 


177064 
000160 


001046 
177626 


177156 
177146 
177136 


177124 


PUNCH: 


PG: 
PO: 


PE: 


Pl: 


P2: 


7 TAPE PUNCH ROUTINE*t#teeereeee 


RO.DA 
ADD #100,R0 
MOV #DAM4O,R1 
MOV #ASG2,R4 


JAP ST1 

MOV #277,T0B 
JSR PC,T 

JMP 0 


:LOAD DATA AREA SIZE 
sEXPAND FOR LEADER/TRAILER 
;LOAD PUNCH START ADDRESS 


TYPE PUNCH REQUEST(H OR L) 
:GET RESPONSE 


7BR IF LS PUNCH 
;BR IF HS PUNCH 
sSEE IF CR 

:1F NOT: BR 
sELSE RESTART 


; TYPE? 


sPUNCH TAPE ON LOW SPEEDtteteenees 


MOVB (R1)+,T0B 


JSR PC TOG 
RO 


BNE PI 
MOVB DA,RO 
JMP PUNCH 


>PUNCH CHARACTER 
:BR IF NOT DONE 
s RESTART 


sPUNCH TAPE ON HIGH SPEEDttreeeeeee 


MOVB (R1)+,TOB 


JSR PC, THG 
RO 


BNE P2 
MOVB DA,RO 
JMP PUNCH 


:PUNCH CHARACTER 
:BR IF NOT DONE 


SEQ 0012 
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433 001754 
434 po AE 


448 002050 


452 002052 


461 002116 


465 002120 


468 002154 


472 902136 


478 002174 


07-JUN-78 


112467 
122767 


000207 


005077 


000207 


105777 
100375 
116777 
000207 


012767 


000207 
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177040 
000043 


000045 
000030 


000002 
176744 
176752 


176722 
176706 


176702 
176676 


176702 


176664 
176666 


000215 


177640 


177032 
177022 


177004 
176772 


176736 


176714 


176670 


176656 


176654 
176642 
176630 


TTOUT: 


TCRLF: 


TOG: 


TEX: 


TTIN: 


TTIN1I: 


TTIN2: 


THG: 


CRLF: 
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sTTY OUTPUT SUBROUTINE ttetreceee 


MOVB (R4)+,TOB 
CMPB #43,TOB 
BEQ TEX 

CMPB #45,TOB 
BEQ TCRLF 

JSR PC,TOG 
BR TTOUT 
MOVB #15,TOB 
JSR PC, TOG 
MOVB #12,T0B 
JSR PC,T0G 
BR TTOUT 
TSTB aTPs 

BPL TOG 

MOVB TOB, ,aTPB 
RTS 

sTTY READ SUBROUTINE *tetereceee 
CLR aTKs 

CLR aTKB 

CLR TIB 

TSTB ajTKs 

BPL TTINI 
MOV aTKB,TIB 
TSTB aTPs 

BPL TTIN2 
MOVB TIB,aTPB 
RTS PC 

sHIGH SPEED PUNCH SUBROUTINE *t*e2eeanae 
TSTB aPPS 

BPL THG 

MOVB TOB ,aPPB 
RTS PC 

:CR, LF, * TYPE SUBROUTINE ttterereee 
MOV #215,TOB 
JSR PC,T0G 
MOV #212,T0B 
JSR PC,TOG 
MOV #252,T0OB 
JSR PC,T0G 
RTS PC 


SEQ 0013 
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CZTUNA.P11 07-JUN-78 17:11 SEQ 0014 
480 -EVEN 
Pr MESSAGES teteeeaece 
483 002176 022445 054105 042524 MSG1: -ASCII /2ZZEXTERNAL DATA TAPE CREATE PROGRAMZ/ 
484 002204 047122 046101 042040 


002234 
489 002242 040515 044530 052515 ~-ASCII /MAXIMUM OF 377 OCTAL CHARACTERS2/ 


002264 
493 po 040522 052103 051105 
495 002302 otha g 042524 fh ASCII /ENTER 3 DIGITS(O-7)FOR EACH CHARACTERZ/ 


500 002340 051101 041501 042524 
502 002350 051103 053440 046111 eASCII /CR WILL ECHO CR-LF2/ 
503 002356 020114 041505 047510 
504 002364 sae: 026522 043114 


506 002373 03 047117 051124 -ASCII /CONTROL C ENDS INPUT AT LESS THAN 377.%/ 


509 
510 002422 046040 051505 020123 
511 002430 044124 047101 031440 


002442 020101 044523 043516 ASCII /A SINGLE CHARACTER CORRECTION MAY BE DONE2Z/ 


MMMiViuMiunwi 
Fed etd ad od ds od 


002506 
520 002514 eaatt 052040 050131 ASCII /BY TYPING A SLASH AND RETYPING THE CHARACTER.2#/ 


526 002560 040510 040522 052103 
527 002566 051105 022456 043 


EVEN 
530 002574 022445 047105 020104 MSG2: .ASCII /%ZEND OF INPUTZ/ 
531 002602 043117 eee 050116 


533 002613 101 051523 051125 -ASCII /ASSURE PUNCH IS ONZ/ 
534 002620 020105 052520 041516 
535 002626 020110 051511 047440 
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002750 


002754 
003016 


022516 


044103 


000000 
003016 
000000 


000001 


020122 
0201¢2 
051440 


021445 


054524 


042105 
020110 
044510 
042520 


051103 


047125 


~ASCII 


ASCII 


~ASCIT 
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/AND TYPE L FOR LOW SPEED2/ 


/OR H FOR HIGH SPEEDZ/ 


/OR CR FOR RESTART WITH NO PUNCHZ4/ 


-EVEN 
SDATA AREAtetteeeeee 


-END 


SEG 0015 
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CRLF 002136 
DA 003016 
DAM40 38 002754 
MSG1 002176 
MSG2 002574 
PE 001666 
PG 001616 
PPB 001012 
PPS 001010 
PS 001014 
- ABS. 003020 


ERRORS DETECTED: 


MACY11 30(1046) 


000 


0 


,CZTUNA.SEQ/SOL_CZTUNA.P11 
RUN-TIME: 2 5 .2 SECONDS 
RUN-TIME RATIO: 12/9=1.3 


CORE USED: 


5K 


(10 PAGES) 


001602 
00 


001362 
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001372 


001254 


2 


001270 


001006 


001004 
002052 
002066 
002102 
001754 


= 003020 


SEQ 0016 


